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1 Tarte ca tuR Te - Minimal Cluster CJF Support 
& DEN 
5 | ee ececcrroreqenerceenenonsqnnsseceeononseeeqnenecosqononseooeeococeoececoess 
;* we 
§ 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
:* DIGITAL QUIPHENT CORPORATION, " MAYNARD, MASSACHUSETTS. » 
, ‘? ALL RIGHTS RESER * 
Py ® 
11 :* THIS SOFTWARE IS FURNISHED TUNER A. LICENSE AND MAY BE USED AND COPIED * 
5 \ 3* if ACCORDANCE WITH Ty ent SUCH LICENSE AND WITH THE x 
15 ;* LUSION OF THE ABOVE COPYRIGHT enor ICE. THIS SOFTWARE OR ANY OTHER * 
06 14 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
15 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
000 18 ‘ TRANSFERRED. * 
é ye 
000 18 3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TC CHANGE WITHOUT NOTICE * 
00 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 y - CORPORATION. * 
; a 
000 ¢ 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 ? :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 ® 
0900 é s puduuinneneahbenesendiasegnnsandtahneneeanensnenetseenbebnneesnnbneneeenanen 
$009 8° 
0000 9 s+ 
9000 9 ; FACILITY: EXECUTIVE, CLUSTER MANAGEMENT 
0000 é : ABSTRACT: 
000 ; This module contains the minimal Common Journaling Facility support 
4 : 3 for a cluster environment. 
909 6 > ENVIRONMENT: VAX/VMS 
208 8 : AUTHOR: Ralph Weber, CREATION DATE: 31-March-1983 
000 40 : MODIFIED BY: 
O60 a 8 
0000 rk i-- 
000 44 
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¢ -SBTTL DECLARATIONS 
a8 3; INCLUDE FILES: 
? SCORPDEF ; CORP offsets 
SCLSMSGDEF ; Cluster message offsets 
§ SCLUBDEF ; Cluster block 
SCSBDEF ; Cluster system bloc 
4 SIPLDEF 3; Processor IPL settcleions 
5 SPDTDEF ; Port descrpitor table 
§ SSSDEF i; System status codes 
§ MACROS: 
60 ; 
o) 
68 | EQUATED SYMBOLS: 
65° 
0 96 3 
3 és : OWN STORAGE: 
0 % 
33 4 seoungenouonoeosessoesrssecensesenensnonenenneonenenneseseseerTe resent 
099 rs ; NOTE: The following assumptions are in effect for this entire module. 
. g ITIIITITIIITITII ITLL LLL LLL LLL ELL 
r ASSUME IPLS$_SYNCH EQ IPL$_SCS 
23 . DEFAULT DISPLACEMENT ,WORD 
00000000 HF -PSECT $$$100,LONG 
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-SBTTL CJFSMIN_JOURNAL = Minimum Journal Message Processor 


bo ee 
23 


a 
am 


; Functional Description: 


When no real journal message dispatcher exists, this routine processes 
all incomming journaling messages. If no response is required, the 
message is ignored. If a response is required, a response with a 
status of SSS_NOSUCHNODE is returned. 


Inputs: 
Re Address of message 
R Senders CSB 
RG Address of PDT 
RS Address of a CDRP (if response required) 


; Outputs: 


SSS SS SSS SS SSS SSS SSS SSS SSS SS Ssssssss esses 
SOOOCSSSOSOOSCOOOoOoOoOoOoOooooooooooooo 


oo 


No response required. 
Deallocate message buffer 


FFDB' 31 
and return to caller. 


1 
00 102 
p \ : CJMSG$Q_STATUS(R2) = SS$_NOSUCHNODE in a response message 
1 ° 
CJFSMIN_JOURNAL: : 
04 A2 rf 1 TSTL SL FMOER, REP TORS? :; Is a response required? 
1D 1 ° : BEQL $ ; Branch if no response. 
4 30 1 BSBW CNXSINIT_CDRP ; Initialize supplied CDRP. 
2C AS O9 A 90 0 1 MOVB CLSMSG$B_FUNC(R2), - ; Save incomming function code 
1 cORF aL VAL1(R5) : for the response. 
4C AS 2S5°AF 9E 1 MOVAB B*CJFSAIN BUILD, - ; Set address of minimum build 
1 1 CORPSL_MSGBLD(R5) 3 message routine in CDRP. 
53 4C As 8 1 1 MOVL CSBSL_CSID(R3), R3 ; Get CSID from CSB. 
FFE?" 1 1 BSBW CNX$S ND_MSG_RESP ; Send the response message. 
50 5 00 1 MOVL R5 3 setup CORP for deallocation. 
00000000'°GF 1 JMP GE XESDEANONPAGED : Deallocate CDRP and return. 
1 
1 
1 


rororn—— 


é 70$: BRW CNXSDEALL_MSG_BUF _CSB 
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-SBTTL CJFSMIN_BUILD = Minimum CJF Message Build Routine 


csc” cia 


+ 
na 


Functional Description: 
This routine is called by the acknowledged message services to build a 
minimum CJF response message. It is called as many times as needed to 
successfully transfer the message. 
Inputs: 
Re Address of message 
R Address of CS 
RG Address of PDT 
5 Address of CDRP 
Outputs: 


Minimal CJF response message built in message buffer pointed to by R2. 


SD Se Se Se Se Se Ge Se Ge Ge Ge Se Ge Se Ge Se Se Ge Ge Se Se 
v 
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i kk kk dt a es OO 
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i JFSMIN_BUILD: 
08 A2 83 BF 90 MOVB #<CLSMSGSM_RESPMSG - ; Build a response CJF facility 
0 ! CLSMSG$K_FAC_CJ 3; code. 
0 CLSMSG$B FACILITY (R2) 
09 a2 2C AS) 90 «(00 MOVB CDRPSL_VAL1(R5) ; Return function code from 
0 CLSMSGSB_FUNC(R2) : incomming message. 
Oc A2 O28C BF 3C 00 MOVZWL #SS$_NOSOCHNODE, - 3; Set error status which 
0 © JMSG$Q_STATUS(R2) ; signals no journal driver 
10 A2 D4 4 CLRL CJMSG$Q_STATUS+4(R2) 3; here. 
05 00 RSB ; Return. 
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] -SBTTL CJFSDISPATCH = First Level CJF Dispatch Routine 
: i++ 
¢ Functional Description: 
1 ‘ : This routine is the nets of the first level A eee ry! ys i 
2b 8 : dispatcher. LY turn 18 routine dispatches through the CLUB t 
9 1 : second level dispatcher in the journal driver or to CJFSMIN LVOURNAL. tf 
2 \f s the journal driver is not yet ioaded. 
2 \f ; Inputs: 
9 174; Re Address of message 
9 175; R Senders CSB 
2 178 3 Address of PDT 
8 2 178 $ Outputs: 
039 180; R Destroyed 
9 181; 8 Address of message —~ | ate 
. 4 § : B Senders CSB (unchanged 
9 183; RG Address of PDT (unc A 
039 184; 
039 188 
° ; } ; CUFSDISPATCH:: 
50 00000000'GF 00 9 132 MOVL G*CLUSGL_CLUB ; Get CLUB address. 
14 B80 1 4 190 JMP @CLUBSL_JNL UB ESR Y (ROD : Forward tirst Level Cispatch 
4 191 : ournal driver 
04 136 3 IN_JOURNAL . 
04 19 
904 194 - END 
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CJFCLUSTR 
Symbol table 


SMIN_BUILD 

CJFSMIN_ JOURNAL 

CJMSG TATUS 

CLSMSGSE SFACILITY 
L] UN 

et LSMSGSK-FAC_CJF 


LSMSGSL_RSPTD 
LSMSGSM"RESPMSG 


CSBSL_CSTD ~ 

EXE SOEANONPAGED 
oe $_S ee. 
IPL$"S 
sss *AOSUCHNODE 


PSECT name 


- ABS . 
SABS$ 
$$$100 


Initialization 
ponneae processing 


Syabol table sort 


wd table output 
Psect synopsis output 


Cross-reference output 


Assembler run totals 


bytes 
There were 


194 source Lines were read in Pass 1 
15 pages of virtual memory were used to def 


Page faults 


17 pages) of virtua 
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00000014 


rkereenne 
gererene 
gerereee 


0000004C 


Reeeeene 


: seit 


00002 


Allocation 


0000000 
99000000 
0000004 


584 
B95eb bytes, {f17 Limit was 1500 pages. 


in fai 


+ produ 


"S$Eb=198¢ 00:66:52 ES¥SUOA. SR 


! Psect synopsis ! 
doneawe eeeeceseecen + 


8.3 ( NOPIC USR CON ABS LCL 
#3 3 ( 1.) NOPIC USR CON ABS LCL R x 
6 2¢ 2.) NOPIC USR CON REL LCL NOSHR- EXE 


seeeecece oo eo aaesupeal 


CPU Time 


Elapsed Time 


any 


memory were used to buffer the intermediate code 
pages of symbol table ,*Pace of \oces d to hold 1 
ing 15 object records in Pass 2. 
e 14 macros. 


non-local and 1 Local symbols. 


4-00 P 
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NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSH EXE RD WRT NOVEC BYTE 
WRT NOVEC LONG 


A, 
VAX=11 Macro Run Statistics 
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! Macro Library statistics ! 


eS 


Macro Library name Macrcs defined 
eesnua SYSLOA. Pee R.MLB;1 1 
“333 $30u nee: F3¥3 08 ist1ec8 At 2 
3S SDUASB SYSLIB3STARLET. Pale: 2 
TOTALS (all Libraries) 11 


1335 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
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AX/VMS Macro 
SYSLOA.SRCIC Cure 


MACRO/LIS=LIS$:CJFCLUSTR/OBJ=0BJ$:CJFCLUSTR MSRC$:CJFCLUSTR/UPDATE=(ENHS: CUFCLUSTR) +EXECMLS$S/LIB+LIB$:CLUSTER/LIB 
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